home *** CD-ROM | disk | FTP | other *** search
/ Revista do CD-ROM 100 / CD-ROM 100.iso / aplic / mtrix2 / matrix.exe / {app} / calendar.mtx < prev    next >
Encoding:
Text File  |  2000-02-22  |  16.7 KB  |  650 lines
  1. Matrix spreadsheet v2.0
  2. 1560
  3. CGFFFFFECFFFFFFEAAAAKKKKKK
  4. HADA
  5. 583
  6. F1='    Calendar example
  7. Q1=@easter(D3)
  8. R1=@mod(@bigdays(1,1,D3),7)
  9. S1=Jan
  10. T1=Leap year
  11. F2='    -----------------
  12. Q2=@abs(Q1)
  13. R2=@mod(@bigdays(1,2,D3),7)
  14. S2=Feb
  15. T2=@if(@mod(D3,4)=0, @if(@mod(D3,100)=0,@if(@mod(D3,400)=0,1,0),1),0)
  16. A3=Enter year
  17. D3=2000
  18. Q3=@if(Q1 <0 , 'March', 'April')
  19. R3=@mod(@bigdays(1,3,D3),7)
  20. S3=Mar
  21. Q4=@strcat('Easter Sunday is on ', @strcat(@str(Q2, 0, 0), @strcat(' ',Q3)))
  22. R4=@mod(@bigdays(1,4,D3),7)
  23. S4=Apr
  24. R5=@mod(@bigdays(1,5,D3),7)
  25. S5=May
  26. D6=January
  27. F6=D3
  28. L6=February
  29. N6=D3
  30. R6=@mod(@bigdays(1,6,D3),7)
  31. S6=Jun
  32. B7=Sun
  33. C7=Mon
  34. D7=Tue
  35. E7=Wed
  36. F7=Thu
  37. G7=Fri
  38. H7=Sat
  39. J7=Sun
  40. K7=Mon
  41. L7=Tue
  42. M7=Wed
  43. N7=Thu
  44. O7=Fri
  45. P7=Sat
  46. R7=@mod(@bigdays(1,7,D3),7)
  47. S7=Jul
  48. B8=@if(R1 ==0, 1, '')
  49. C8=@if(@type(B8) =2, B8+1, @if(R1 =1, 1, ''))
  50. D8=@if(@type(C8) =2, C8+1, @if(R1 =2, 1, ''))
  51. E8=@if(@type(D8) =2, D8+1, @if(R1 =3, 1, ''))
  52. F8=@if(@type(E8) =2, E8+1, @if(R1 =4, 1, ''))
  53. G8=@if(@type(F8) =2, F8+1, @if(R1 =5, 1, ''))
  54. H8=@if(@type(G8) =2, G8+1, 1)
  55. J8=@if(R2 ==0, 1, '')
  56. K8=@if(@type(J8) =2, J8+1, @if(R2 =1, 1, ''))
  57. L8=@if(@type(K8) =2, K8+1, @if(R2 =2, 1, ''))
  58. M8=@if(@type(L8) =2, L8+1, @if(R2 =3, 1, ''))
  59. N8=@if(@type(M8) =2, M8+1, @if(R2 =4, 1, ''))
  60. O8=@if(@type(N8) =2, N8+1, @if(R2 =5, 1, ''))
  61. P8=@if(@type(O8) =2, O8+1, 1)
  62. R8=@mod(@bigdays(1,8,D3),7)
  63. S8=Aug
  64. B9=H8+1
  65. C9=B9+1
  66. D9=C9+1
  67. E9=D9+1
  68. F9=E9+1
  69. G9=F9+1
  70. H9=G9+1
  71. J9=P8+1
  72. K9=J9+1
  73. L9=K9+1
  74. M9=L9+1
  75. N9=M9+1
  76. O9=N9+1
  77. P9=O9+1
  78. R9=@mod(@bigdays(1,9,D3),7)
  79. S9=Sep
  80. B10=H9+1
  81. C10=B10+1
  82. D10=C10+1
  83. E10=D10+1
  84. F10=E10+1
  85. G10=F10+1
  86. H10=G10+1
  87. J10=P9+1
  88. K10=J10+1
  89. L10=K10+1
  90. M10=L10+1
  91. N10=M10+1
  92. O10=N10+1
  93. P10=O10+1
  94. R10=@mod(@bigdays(1,10,D3),7)
  95. S10=Oct
  96. B11=H10+1
  97. C11=B11+1
  98. D11=C11+1
  99. E11=D11+1
  100. F11=E11+1
  101. G11=F11+1
  102. H11=G11+1
  103. J11=P10+1
  104. K11=J11+1
  105. L11=K11+1
  106. M11=L11+1
  107. N11=M11+1
  108. O11=N11+1
  109. P11=O11+1
  110. R11=@mod(@bigdays(1,11,D3),7)
  111. S11=Nov
  112. B12=H11+1
  113. C12=B12+1
  114. D12=C12+1
  115. E12=@if(@type(D12) = 2, @if(D12<31, D12+1, ''), '')
  116. F12=@if(@type(E12) = 2, @if(E12<31, E12+1, ''), '')
  117. G12=@if(@type(F12) = 2, @if(F12<31, F12+1, ''), '')
  118. H12=@if(@type(G12) = 2, @if(G12<31, G12+1, ''), '')
  119. J12=@if(@type(P11)=2, @if(P11<28+T2, P11+1, ''), '')
  120. K12=@if(@type(J12)=2, @if(J12<28+T2, J12+1, ''),'')
  121. L12=@if(@type(K12)=2, @if(K12<28+T2, K12+1, ''),'')
  122. M12=@if(@type(L12)=2, @if(L12<28+T2, L12+1, ''),'')
  123. N12=@if(@type(M12)=2, @if(M12<28+T2, M12+1, ''),'')
  124. O12=@if(@type(N12)=2, @if(N12<28+T2, N12+1, ''),'')
  125. P12=@if(@type(O12)=2, @if(O12<28+T2, O12+1, ''),'')
  126. R12=@mod(@bigdays(1,12,D3),7)
  127. S12=Dec
  128. B13=@if(@type(H12) = 2, @if(H12<31, H12+1, ''), '')
  129. C13=@if(@type(B13) = 2, @if(B13<31, B13+1, ''), '')
  130. D15=March
  131. F15=D3
  132. L15=April
  133. N15=D3
  134. B16=Sun
  135. C16=Mon
  136. D16=Tue
  137. E16=Wed
  138. F16=Thu
  139. G16=Fri
  140. H16=Sat
  141. J16=Sun
  142. K16=Mon
  143. L16=Tue
  144. M16=Wed
  145. N16=Thu
  146. O16=Fri
  147. P16=Sat
  148. B17=@if(R3 ==0, 1, '')
  149. C17=@if(@type(B17) =2, B17+1, @if(R3 =1, 1, ''))
  150. D17=@if(@type(C17) =2, C17+1, @if(R3 =2, 1, ''))
  151. E17=@if(@type(D17) =2, D17+1, @if(R3 =3, 1, ''))
  152. F17=@if(@type(E17) =2, E17+1, @if(R3 =4, 1, ''))
  153. G17=@if(@type(F17) =2, F17+1, @if(R3 =5, 1, ''))
  154. H17=@if(@type(G17) =2, G17+1, 1)
  155. J17=@if(R4 ==0, 1, '')
  156. K17=@if(@type(J17) =2, J17+1, @if(R4 =1, 1, ''))
  157. L17=@if(@type(K17) =2, K17+1, @if(R4 =2, 1, ''))
  158. M17=@if(@type(L17) =2, L17+1, @if(R4 =3, 1, ''))
  159. N17=@if(@type(M17) =2, M17+1, @if(R4 =4, 1, ''))
  160. O17=@if(@type(N17) =2, N17+1, @if(R4 =5, 1, ''))
  161. P17=@if(@type(O17) =2, O17+1, 1)
  162. B18=H17+1
  163. C18=B18+1
  164. D18=C18+1
  165. E18=D18+1
  166. F18=E18+1
  167. G18=F18+1
  168. H18=G18+1
  169. J18=P17+1
  170. K18=J18+1
  171. L18=K18+1
  172. M18=L18+1
  173. N18=M18+1
  174. O18=N18+1
  175. P18=O18+1
  176. B19=H18+1
  177. C19=B19+1
  178. D19=C19+1
  179. E19=D19+1
  180. F19=E19+1
  181. G19=F19+1
  182. H19=G19+1
  183. J19=P18+1
  184. K19=J19+1
  185. L19=K19+1
  186. M19=L19+1
  187. N19=M19+1
  188. O19=N19+1
  189. P19=O19+1
  190. B20=H19+1
  191. C20=B20+1
  192. D20=C20+1
  193. E20=D20+1
  194. F20=E20+1
  195. G20=F20+1
  196. H20=G20+1
  197. J20=P19+1
  198. K20=J20+1
  199. L20=K20+1
  200. M20=L20+1
  201. N20=M20+1
  202. O20=N20+1
  203. P20=O20+1
  204. B21=H20+1
  205. C21=B21+1
  206. D21=C21+1
  207. E21=@if(@type(D21) = 2, @if(D21<31, D21+1, ''), '')
  208. F21=@if(@type(E21) = 2, @if(E21<31, E21+1, ''), '')
  209. G21=@if(@type(F21) = 2, @if(F21<31, F21+1, ''), '')
  210. H21=@if(@type(G21) = 2, @if(G21<31, G21+1, ''), '')
  211. J21=@if(@type(P20)=2, @if(P20<30, P20+1, ''), '')
  212. K21=@if(@type(J21)=2, @if(J21<30, J21+1, ''),'')
  213. L21=@if(@type(K21)=2, @if(K21<30, K21+1, ''),'')
  214. M21=@if(@type(L21)=2, @if(L21<30, L21+1, ''),'')
  215. N21=@if(@type(M21)=2, @if(M21<30, M21+1, ''),'')
  216. O21=@if(@type(N21)=2, @if(N21<30, N21+1, ''),'')
  217. P21=@if(@type(O21)=2, @if(O21<30, O21+1, ''),'')
  218. B22=@if(@type(H21) = 2, @if(H21<31, H21+1, ''), '')
  219. C22=@if(@type(B22) = 2, @if(B22<31, B22+1, ''), '')
  220. J22=@if(@type(P21)=2, @if(P21<30, P21+1, ''),'')
  221. D24=May
  222. F24=D3
  223. L24=June
  224. N24=D3
  225. B25=Sun
  226. C25=Mon
  227. D25=Tue
  228. E25=Wed
  229. F25=Thu
  230. G25=Fri
  231. H25=Sat
  232. J25=Sun
  233. K25=Mon
  234. L25=Tue
  235. M25=Wed
  236. N25=Thu
  237. O25=Fri
  238. P25=Sat
  239. B26=@if(R5 ==0, 1, '')
  240. C26=@if(@type(B26) =2, B26+1, @if(R5 =1, 1, ''))
  241. D26=@if(@type(C26) =2, C26+1, @if(R5 =2, 1, ''))
  242. E26=@if(@type(D26) =2, D26+1, @if(R5 =3, 1, ''))
  243. F26=@if(@type(E26) =2, E26+1, @if(R5 =4, 1, ''))
  244. G26=@if(@type(F26) =2, F26+1, @if(R5 =5, 1, ''))
  245. H26=@if(@type(G26) =2, G26+1, 1)
  246. J26=@if(R6 ==0, 1, '')
  247. K26=@if(@type(J26) =2, J26+1, @if(R6 =1, 1, ''))
  248. L26=@if(@type(K26) =2, K26+1, @if(R6 =2, 1, ''))
  249. M26=@if(@type(L26) =2, L26+1, @if(R6 =3, 1, ''))
  250. N26=@if(@type(M26) =2, M26+1, @if(R6 =4, 1, ''))
  251. O26=@if(@type(N26) =2, N26+1, @if(R6 =5, 1, ''))
  252. P26=@if(@type(O26) =2, O26+1, 1)
  253. B27=H26+1
  254. C27=B27+1
  255. D27=C27+1
  256. E27=D27+1
  257. F27=E27+1
  258. G27=F27+1
  259. H27=G27+1
  260. J27=P26+1
  261. K27=J27+1
  262. L27=K27+1
  263. M27=L27+1
  264. N27=M27+1
  265. O27=N27+1
  266. P27=O27+1
  267. B28=H27+1
  268. C28=B28+1
  269. D28=C28+1
  270. E28=D28+1
  271. F28=E28+1
  272. G28=F28+1
  273. H28=G28+1
  274. J28=P27+1
  275. K28=J28+1
  276. L28=K28+1
  277. M28=L28+1
  278. N28=M28+1
  279. O28=N28+1
  280. P28=O28+1
  281. B29=H28+1
  282. C29=B29+1
  283. D29=C29+1
  284. E29=D29+1
  285. F29=E29+1
  286. G29=F29+1
  287. H29=G29+1
  288. J29=P28+1
  289. K29=J29+1
  290. L29=K29+1
  291. M29=L29+1
  292. N29=M29+1
  293. O29=N29+1
  294. P29=O29+1
  295. B30=H29+1
  296. C30=B30+1
  297. D30=C30+1
  298. E30=@if(@type(D30) = 2, @if(D30<31, D30+1, ''), '')
  299. F30=@if(@type(E30) = 2, @if(E30<31, E30+1, ''), '')
  300. G30=@if(@type(F30) = 2, @if(F30<31, F30+1, ''), '')
  301. H30=@if(@type(G30) = 2, @if(G30<31, G30+1, ''), '')
  302. J30=@if(@type(P29)=2, @if(P29<30, P29+1, ''), '')
  303. K30=@if(@type(J30)=2, @if(J30<30, J30+1, ''),'')
  304. L30=@if(@type(K30)=2, @if(K30<30, K30+1, ''),'')
  305. M30=@if(@type(L30)=2, @if(L30<30, L30+1, ''),'')
  306. N30=@if(@type(M30)=2, @if(M30<30, M30+1, ''),'')
  307. O30=@if(@type(N30)=2, @if(N30<30, N30+1, ''),'')
  308. P30=@if(@type(O30)=2, @if(O30<30, O30+1, ''),'')
  309. B31=@if(@type(H30) = 2, @if(H30<31, H30+1, ''), '')
  310. C31=@if(@type(B31) = 2, @if(B31<31, B31+1, ''), '')
  311. J31=@if(@type(P30) = 2, @if(P30<30, P30+1, ''), '')
  312. D33=July
  313. F33=D3
  314. L33=August
  315. N33=D3
  316. B34=Sun
  317. C34=Mon
  318. D34=Tue
  319. E34=Wed
  320. F34=Thu
  321. G34=Fri
  322. H34=Sat
  323. J34=Sun
  324. K34=Mon
  325. L34=Tue
  326. M34=Wed
  327. N34=Thu
  328. O34=Fri
  329. P34=Sat
  330. B35=@if(R7 ==0, 1, '')
  331. C35=@if(@type(B35) =2, B35+1, @if(R7 =1, 1, ''))
  332. D35=@if(@type(C35) =2, C35+1, @if(R7 =2, 1, ''))
  333. E35=@if(@type(D35) =2, D35+1, @if(R7 =3, 1, ''))
  334. F35=@if(@type(E35) =2, E35+1, @if(R7 =4, 1, ''))
  335. G35=@if(@type(F35) =2, F35+1, @if(R7 =5, 1, ''))
  336. H35=@if(@type(G35) =2, G35+1, 1)
  337. J35=@if(R8 ==0, 1, '')
  338. K35=@if(@type(J35) =2, J35+1, @if(R8 =1, 1, ''))
  339. L35=@if(@type(K35) =2, K35+1, @if(R8 =2, 1, ''))
  340. M35=@if(@type(L35) =2, L35+1, @if(R8 =3, 1, ''))
  341. N35=@if(@type(M35) =2, M35+1, @if(R8 =4, 1, ''))
  342. O35=@if(@type(N35) =2, N35+1, @if(R8 =5, 1, ''))
  343. P35=@if(@type(O35) =2, O35+1, 1)
  344. B36=H35+1
  345. C36=B36+1
  346. D36=C36+1
  347. E36=D36+1
  348. F36=E36+1
  349. G36=F36+1
  350. H36=G36+1
  351. J36=P35+1
  352. K36=J36+1
  353. L36=K36+1
  354. M36=L36+1
  355. N36=M36+1
  356. O36=N36+1
  357. P36=O36+1
  358. B37=H36+1
  359. C37=B37+1
  360. D37=C37+1
  361. E37=D37+1
  362. F37=E37+1
  363. G37=F37+1
  364. H37=G37+1
  365. J37=P36+1
  366. K37=J37+1
  367. L37=K37+1
  368. M37=L37+1
  369. N37=M37+1
  370. O37=N37+1
  371. P37=O37+1
  372. B38=H37+1
  373. C38=B38+1
  374. D38=C38+1
  375. E38=D38+1
  376. F38=E38+1
  377. G38=F38+1
  378. H38=G38+1
  379. J38=P37+1
  380. K38=J38+1
  381. L38=K38+1
  382. M38=L38+1
  383. N38=M38+1
  384. O38=N38+1
  385. P38=O38+1
  386. B39=H38+1
  387. C39=B39+1
  388. D39=C39+1
  389. E39=@if(@type(D39) = 2, @if(D39<31, D39+1, ''), '')
  390. F39=@if(@type(E39) = 2, @if(E39<31, E39+1, ''), '')
  391. G39=@if(@type(F39) = 2, @if(F39<31, F39+1, ''), '')
  392. H39=@if(@type(G39) = 2, @if(G39<31, G39+1, ''), '')
  393. J39=@if(@type(P38)=2, @if(P38<31, P38+1, ''), '')
  394. K39=@if(@type(J39)=2, @if(J39<31, J39+1, ''),'')
  395. L39=@if(@type(K39)=2, @if(K39<31, K39+1, ''),'')
  396. M39=@if(@type(L39)=2, @if(L39<31, L39+1, ''),'')
  397. N39=@if(@type(M39)=2, @if(M39<31, M39+1, ''),'')
  398. O39=@if(@type(N39)=2, @if(N39<31, N39+1, ''),'')
  399. P39=@if(@type(O39)=2, @if(O39<31, O39+1, ''),'')
  400. B40=@if(@type(H39) = 2, @if(H39<31, H39+1, ''), '')
  401. C40=@if(@type(B40) = 2, @if(B40<31, B40+1, ''), '')
  402. J40=@if(@type(P39) = 2, @if(P39<31, P39+1, ''), '')
  403. K40=@if(@type(J40) = 2, @if(J40<31, J40+1, ''), '')
  404. D42=September
  405. F42=D3
  406. L42=October
  407. N42=D3
  408. B43=Sun
  409. C43=Mon
  410. D43=Tue
  411. E43=Wed
  412. F43=Thu
  413. G43=Fri
  414. H43=Sat
  415. J43=Sun
  416. K43=Mon
  417. L43=Tue
  418. M43=Wed
  419. N43=Thu
  420. O43=Fri
  421. P43=Sat
  422. B44=@if(R9 ==0, 1, '')
  423. C44=@if(@type(B44) =2, B44+1, @if(R9 =1, 1, ''))
  424. D44=@if(@type(C44) =2, C44+1, @if(R9 =2, 1, ''))
  425. E44=@if(@type(D44) =2, D44+1, @if(R9 =3, 1, ''))
  426. F44=@if(@type(E44) =2, E44+1, @if(R9 =4, 1, ''))
  427. G44=@if(@type(F44) =2, F44+1, @if(R9 =5, 1, ''))
  428. H44=@if(@type(G44) =2, G44+1, 1)
  429. J44=@if(R10 ==0, 1, '')
  430. K44=@if(@type(J44) =2, J44+1, @if(R10 =1, 1, ''))
  431. L44=@if(@type(K44) =2, K44+1, @if(R10 =2, 1, ''))
  432. M44=@if(@type(L44) =2, L44+1, @if(R10 =3, 1, ''))
  433. N44=@if(@type(M44) =2, M44+1, @if(R10 =4, 1, ''))
  434. O44=@if(@type(N44) =2, N44+1, @if(R10 =5, 1, ''))
  435. P44=@if(@type(O44) =2, O44+1, 1)
  436. B45=H44+1
  437. C45=B45+1
  438. D45=C45+1
  439. E45=D45+1
  440. F45=E45+1
  441. G45=F45+1
  442. H45=G45+1
  443. J45=P44+1
  444. K45=J45+1
  445. L45=K45+1
  446. M45=L45+1
  447. N45=M45+1
  448. O45=N45+1
  449. P45=O45+1
  450. B46=H45+1
  451. C46=B46+1
  452. D46=C46+1
  453. E46=D46+1
  454. F46=E46+1
  455. G46=F46+1
  456. H46=G46+1
  457. J46=P45+1
  458. K46=J46+1
  459. L46=K46+1
  460. M46=L46+1
  461. N46=M46+1
  462. O46=N46+1
  463. P46=O46+1
  464. B47=H46+1
  465. C47=B47+1
  466. D47=C47+1
  467. E47=D47+1
  468. F47=E47+1
  469. G47=F47+1
  470. H47=G47+1
  471. J47=P46+1
  472. K47=J47+1
  473. L47=K47+1
  474. M47=L47+1
  475. N47=M47+1
  476. O47=N47+1
  477. P47=O47+1
  478. B48=H47+1
  479. C48=B48+1
  480. D48=C48+1
  481. E48=@if(@type(D48) = 2, @if(D48<30, D48+1, ''), '')
  482. F48=@if(@type(E48) = 2, @if(E48<30, E48+1, ''), '')
  483. G48=@if(@type(F48) = 2, @if(F48<30, F48+1, ''), '')
  484. H48=@if(@type(G48) = 2, @if(G48<30, G48+1, ''), '')
  485. J48=@if(@type(P47)=2, @if(P47<31, P47+1, ''), '')
  486. K48=@if(@type(J48)=2, @if(J48<31, J48+1, ''),'')
  487. L48=@if(@type(K48)=2, @if(K48<31, K48+1, ''),'')
  488. M48=@if(@type(L48)=2, @if(L48<31, L48+1, ''),'')
  489. N48=@if(@type(M48)=2, @if(M48<31, M48+1, ''),'')
  490. O48=@if(@type(N48)=2, @if(N48<31, N48+1, ''),'')
  491. P48=@if(@type(O48)=2, @if(O48<31, O48+1, ''),'')
  492. B49=@if(@type(H48) = 2, @if(H48<30, H48+1, ''), '')
  493. C49=@if(@type(B49) = 2, @if(B49<30, B49+1, ''), '')
  494. J49=@if(@type(P48) = 2, @if(P48<31, P48+1, ''), '')
  495. K49=@if(@type(J49) = 2, @if(J49<31, J49+1, ''), '')
  496. D51=November
  497. F51=D3
  498. L51=December
  499. N51=D3
  500. B52=Sun
  501. C52=Mon
  502. D52=Tue
  503. E52=Wed
  504. F52=Thu
  505. G52=Fri
  506. H52=Sat
  507. J52=Sun
  508. K52=Mon
  509. L52=Tue
  510. M52=Wed
  511. N52=Thu
  512. O52=Fri
  513. P52=Sat
  514. B53=@if(R11 ==0, 1, '')
  515. C53=@if(@type(B53) =2, B53+1, @if(R11 =1, 1, ''))
  516. D53=@if(@type(C53) =2, C53+1, @if(R11 =2, 1, ''))
  517. E53=@if(@type(D53) =2, D53+1, @if(R11 =3, 1, ''))
  518. F53=@if(@type(E53) =2, E53+1, @if(R11 =4, 1, ''))
  519. G53=@if(@type(F53) =2, F53+1, @if(R11 =5, 1, ''))
  520. H53=@if(@type(G53) =2, G53+1, 1)
  521. J53=@if(R12 ==0, 1, '')
  522. K53=@if(@type(J53) =2, J53+1, @if(R12 =1, 1, ''))
  523. L53=@if(@type(K53) =2, K53+1, @if(R12 =2, 1, ''))
  524. M53=@if(@type(L53) =2, L53+1, @if(R12 =3, 1, ''))
  525. N53=@if(@type(M53) =2, M53+1, @if(R12 =4, 1, ''))
  526. O53=@if(@type(N53) =2, N53+1, @if(R12 =5, 1, ''))
  527. P53=@if(@type(O53) =2, O53+1, 1)
  528. B54=H53+1
  529. C54=B54+1
  530. D54=C54+1
  531. E54=D54+1
  532. F54=E54+1
  533. G54=F54+1
  534. H54=G54+1
  535. J54=P53+1
  536. K54=J54+1
  537. L54=K54+1
  538. M54=L54+1
  539. N54=M54+1
  540. O54=N54+1
  541. P54=O54+1
  542. B55=H54+1
  543. C55=B55+1
  544. D55=C55+1
  545. E55=D55+1
  546. F55=E55+1
  547. G55=F55+1
  548. H55=G55+1
  549. J55=P54+1
  550. K55=J55+1
  551. L55=K55+1
  552. M55=L55+1
  553. N55=M55+1
  554. O55=N55+1
  555. P55=O55+1
  556. B56=H55+1
  557. C56=B56+1
  558. D56=C56+1
  559. E56=D56+1
  560. F56=E56+1
  561. G56=F56+1
  562. H56=G56+1
  563. J56=P55+1
  564. K56=J56+1
  565. L56=K56+1
  566. M56=L56+1
  567. N56=M56+1
  568. O56=N56+1
  569. P56=O56+1
  570. B57=H56+1
  571. C57=B57+1
  572. D57=@if(@type(C57) = 2, @if(C57<30, C57+1, ''), '')
  573. E57=@if(@type(D57) = 2, @if(D57<30, D57+1, ''), '')
  574. F57=@if(@type(E57) = 2, @if(E57<30, E57+1, ''), '')
  575. G57=@if(@type(F57) = 2, @if(F57<30, F57+1, ''), '')
  576. H57=@if(@type(G57) = 2, @if(G57<30, G57+1, ''), '')
  577. J57=@if(@type(P56)=2, @if(P56<31, P56+1, ''), '')
  578. K57=@if(@type(J57)=2, @if(J57<31, J57+1, ''),'')
  579. L57=@if(@type(K57)=2, @if(K57<31, K57+1, ''),'')
  580. M57=@if(@type(L57)=2, @if(L57<31, L57+1, ''),'')
  581. N57=@if(@type(M57)=2, @if(M57<31, M57+1, ''),'')
  582. O57=@if(@type(N57)=2, @if(N57<31, N57+1, ''),'')
  583. P57=@if(@type(O57)=2, @if(O57<31, O57+1, ''),'')
  584. B58=@if(@type(H57) = 2, @if(H57<30, H57+1, ''), '')
  585. C58=@if(@type(B58) = 2, @if(B58<30, B58+1, ''), '')
  586. J58=@if(@type(P57) = 2, @if(P57<31, P57+1, ''), '')
  587. K58=@if(@type(J58) = 2, @if(J58<31, J58+1, ''), '')
  588. B60=@strcat(Q4, @str(D3, 0, 0))
  589. Properties
  590. qqqqqqqqqqqqqqqqqq!qqqqqqqq
  591. qqqqqqqqqqqqqqqqqq!qqqqqqqq
  592. qqq±qqqqqqqqqqqqqq!qqqqqqqq
  593. qqqqqqqqqqqqqqqqqq!qqqqqqqq
  594. qqqqqqqqqqqqqqqqqq!qqqqqqqq
  595. qqqqüqqüqqqqqqüqqüqqqq!qqqqqqqq
  596. q!ü!ü!ü!ü!ü!ü!üq!ü!ü!ü!ü!ü!ü!üqq!qqqqqqqq
  597. qíííííííqíííííííqq!qqqqqqqq
  598. qíííííííqíííííííqq!qqqqqqqq
  599. qíííííííqíííííííqq!qqqqqqqq
  600. qíííííííqíííííííqq!qqqqqqqq
  601. qíííííííqíííííííqq!qqqqqqqq
  602. qííqqqqqqqqqqq
  603. qqqqqqqqqqqqqqqqqqqqqqqqqq
  604. qqqqüqqüqqqqqqüqqüqqqqqqqqqqqq
  605. q!ü!ü!ü!ü!ü!ü!üq!ü!ü!ü!ü!ü!ü!üqqqqqqqqqq
  606. qíííííííqíííííííqqqqqqqqqq
  607. qíííííííqíííííííqqqqqqqqqq
  608. qíííííííqíííííííqqqqqqqqqq
  609. qíííííííqíííííííqqqqqqqqqq
  610. qíííííííqíííííííqqqqqqqqqq
  611. qííqíqqqqqqqqqq
  612. qqqqqqqqqqqqqqqqqqqqqqqqqq
  613. qqqqüqqüqqqqqqüqqüqqqqqqqqqqqq
  614. q!ü!ü!ü!ü!ü!ü!üq!ü!ü!ü!ü!ü!ü!üqqqqqqqqqq
  615. qíííííííqíííííííqqqqqqqqqq
  616. qíííííííqíííííííqqqqqqqqqq
  617. qíííííííqíííííííqqqqqqqqqq
  618. qíííííííqíííííííqqqqqqqqqq
  619. qíííííííqíííííííqqqqqqqqqq
  620. qííqíqqqqqqqqqq
  621. qqqqqqqqqqqqqqqqqqqqqqqqqq
  622. qqqqüqqüqqqqqqüqqüqqqqqqqqqqqq
  623. q!ü!ü!ü!ü!ü!ü!üq!ü!ü!ü!ü!ü!ü!üqqqqqqqqqq
  624. qíííííííqíííííííqqqqqqqqqq
  625. qíííííííqíííííííqqqqqqqqqq
  626. qíííííííqíííííííqqqqqqqqqq
  627. qíííííííqíííííííqqqqqqqqqq
  628. qíííííííqíííííííqqqqqqqqqq
  629. qííqííqqqqqqqqqq
  630. qqqqqqqqqqqqqqqqqqqqqqqqqq
  631. qqqqüqqüqqqqqqüqqüqqqqqqqqqqqq
  632. q!ü!ü!ü!ü!ü!ü!üq!ü!ü!ü!ü!ü!ü!üqqqqqqqqqq
  633. qíííííííqíííííííqqqqqqqqqq
  634. qíííííííqíííííííqqqqqqqqqq
  635. qíííííííqíííííííqqqqqqqqqq
  636. qíííííííqíííííííqqqqqqqqqq
  637. qíííííííqíííííííqqqqqqqqqq
  638. qííqííqqqqqqqqqq
  639. qqqqqqqqqqqqqqqqqqqqqqqqqq
  640. qqqqüqqüqqqqqqüqqüqqqqqqqqqqqq
  641. q!ü!ü!ü!ü!ü!ü!üq!ü!ü!ü!ü!ü!ü!üqqqqqqqqqq
  642. qíííííííqíííííííqqqqqqqqqq
  643. qíííííííqíííííííqqqqqqqqqq
  644. qíííííííqíííííííqqqqqqqqqq
  645. qíííííííqíííííííqqqqqqqqqq
  646. qíííííííqíííííííqqqqqqqqqq
  647. qííqííqqqqqqqqqq
  648. qqqqqqqqqqqqqqqqqqqqqqqqqq
  649. qqâqqqqqqqqqqqqqqqqqqqqqqqq
  650.